BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Education/T-Z/WorldCap1.4 Demo.cpt/WorldCap© 1.4 Demo ƒ/EuroCap 1.4©/stack.txt

Text File | 1992-10-31 | 5KB | 184 lines

-- stack: in.4©
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=640, y2=480)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=640 h=480
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2641
-- card count: 5
-- first card id: 4360
-- list block id: 6003
-- print block id: 5837
-- font table block id: 3545
-- style table block id: 3321
-- free block count: 0
-- free size: 0 bytes
-- total size: 69440 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x02008000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDD77BEB5
----- HyperTalk script -----
-- This stack, EuroCap© version 1.4, and its scripts are
-- copyrighted,1992, by Jan K. France.  All rights are reserved
-- worldwide.
-- You must ask written permission to use the scripts in
-- EuroCap ©. Address your inquiries to:
--      France & Associates
--      2215 Duntreath Valley Drive
--      Germantown TN  39139
-- Phone [phone]

-- Portions ©1988 Steve Drazga (the SetVolume 1.0 XCMD).


on openstack
  global oldUserLevel, shift, capital,countclicks, country, altcapital, altcountry, capitalcdbtns, countrycdbtns, quesbtn,corcapitals,corcountries, capdata
  hide menubar
  hide titlebar
  put the screenrect into screenSize
  set the rect of this cd to screenSize
  if there is a window "Scroll" then
    hide window "Scroll"
  end if
  put the userlevel into oldUserLevel
  set the userlevel to 2
  set textarrows to true
  tabkey
  put false into shift
  put empty into capdata
  put empty into countrycdbtns
  put empty into capitalcdbtns
  put empty into corcapitals
  put empty into corcountries
  start using stack "1.WorldCap 1.4© Gateway"
end openstack

on closeStack
  choose browse tool
  if there is a window "QWERTY-Abled"
  then hide window "QWERTY-Abled"
  domenu "Compact Stack"
  global oldUserLevel
  set the userLevel to oldUserLevel
end closeStack

on shift_handler
  global shift
  if shift is true then put false into shift
  else if shift is false then put true into shift
end shift_handler

on capslock_handler
  global shift
  if shift is true then put false into shift
  else if shift is false then put true into shift
  if shift is true then capshilite
  else if shift is false then uncapshilite
end capslock_handler

on cleanclose
  if there is a window "QWERTY-Abled" then
    hide window "QWERTY-Abled"
  end if
  set visible of card field "Question" to false
  set visible of card field "Answer" to false
  put empty into card field "Question"
  put empty into card field "Answer"
end cleanclose

on keydown whichkey
  global revealcountry, revealcapital,country, capital
  if whichkey is "1" or whichkey is "!" then
    revealhint
  else if whichkey is 2 or whichkey is "@" then
    go cd "Menu"
  else
    pass keydown
  end if
end keydown

on handlerone
  global revealcountry, revealcapital,country, capital
  revealhint
  if the short name of this cd is "Capitals to Countries" or the short name of this cd is "Countries to Capitals" then
    select after text of cd fld "Answer"
  end if
end handlerone

on handlertwo
  go cd "Menu"
end handlertwo

on handlerthree
end handlerthree

on handlerzero
end handlerzero

on revealhint
  global revealcountry,revealcapital,country,capital
  if the short name of this cd is "Capitals to Countries" then
    add 1 to revealcountry
    lock screen
    put char 1 to revealcountry of country into cd fld "Answer"
    unlock screen with dissolve
    select after text of cd fld "Answer"
  end if
  if the short name of this cd is "Countries to Capitals" then
    add 1 to revealcapital
    lock screen
    put char 1 to revealcapital of capital into cd fld "Answer"
    unlock screen with dissolve
    select after text of cd fld "Answer"
  end if
end revealhint